home *** CD-ROM | disk | FTP | other *** search
/ Mastering Microsoft Visual Basic 5 / Mastering Microsoft Visual Basic 5.ISO / sampapps / event notification / frmmain.frm (.txt) < prev    next >
Visual Basic Form  |  1997-01-15  |  947b  |  30 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   2760
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3960
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   2760
  10.    ScaleWidth      =   3960
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.Timer TheTimer 
  13.       Enabled         =   0   'False
  14.       Left            =   1800
  15.       Top             =   960
  16.    End
  17. Attribute VB_Name = "frmMain"
  18. Attribute VB_GlobalNameSpace = False
  19. Attribute VB_Creatable = False
  20. Attribute VB_PredeclaredId = True
  21. Attribute VB_Exposed = False
  22. Option Explicit
  23. ' In this sample, we use the timer control to fire events
  24. ' at a regular interval. However, the control requires a form
  25. ' for placement. Thus, as the form receives Timer events, it
  26. ' simply calls the Alarm method in the Notifier component.
  27. Private Sub TheTimer_Timer()
  28.   gNotifier.Alarm
  29. End Sub
  30.